home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program100 < prev    next >
Text File  |  2007-02-28  |  347b  |  17 lines
  1. 0010 // PROGRAM 100
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO ILLUSTRATE REFERENCE PARAMETER
  6. 0060 //
  7. 0070 PAR:=5
  8. 0080 PRINT "VALUE OF PAR BEFORE PROCEDURE IS CALLED IS ",PAR
  9. 0090 REFPROC(PAR)
  10. 0100 PRINT 
  11. 0110 PRINT "VALUE OF PAR AFTER PROCEDURE IS FINISHED IS ",PAR
  12. 0120 END 
  13. 0130 //
  14. 0140 PROC REFPROC(REF V) 
  15. 0150 V:=13
  16. 0160 ENDPROC REFPROC
  17.